perm filename LINEN[IRC,LCS] blob sn#273049 filedate 1977-03-30 generic text, type T, neo UTF8
VARIABLE X,Y;    <FILE NAME=LINEN
INSTRUMENT TRY1;
LINEN(P4,P6,P7,P8,P9,X);  <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
COSCIL(U1,MAG*P3,P5); <YOU MUST USE A COSCIL HERE!
OUTA=OUTA+U2;
END;
ARRAY F3,F2(512);
SEG(F2);0,0   1,8  .6 25 .7,50  0,75  0,100;
SYNTH(F1);1 1 2 .3 999;
SEG(F3);-1 1 1 100;
X=0;

INSTRUMENT TRY2;
LINEN(P4,P6,P7,P8,P9,Y);  <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
COSCIL(U1,MAG*P3,P5); <YOU MUST USE A COSCIL HERE!
OUTA=OUTA+U2;
END;
PLAY;TRY1 0 .3 C 2000 F1 .05 .09 2.2 F2;
TRY1 .3 .3 E;
TRY1 .6 .3 G;  TRY1  .9 .3 FS; TRY1 1.2 1 A;
TRY1 2.2 .3 DS 2000 F1 .05 .1 .3; X=0; FINISH;